home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power Programmierung
/
Power-Programmierung (Tewi)(1994).iso
/
tipi
/
bench.tpi
< prev
next >
Wrap
Text File
|
1993-06-14
|
251b
|
18 lines
defstr t$
cls
"Calculating performance..." print$
time$ t$ store
begin
time$ t$ fetch =$ not
until
time$ t$ store
0
begin
1 + time$ t$ fetch =$ not
until
cls
"TIPI performance index is " print$
print cr
begin
inkey$ len drop$
until